home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Bowers Development / AppMaker 2.1.sit / AppMaker 2.1 / Examples / TCL / Gadgets / GadgetsMain.cp / GadgetsMain.cp.rsrc < prev    next >
Encoding:
Text File  |  1997-02-26  |  368 b   |  8 lines  |  [TEXT/KAHL]
  1.     2 RTEXTKAHLocedure Button.getProcID
  2.     importGadgetsMain.cpaTEXTKAHLd(TEXTKAHLd(d¿Ø9G procID = 0
  3.         if threeD
  4.             procID = 1107*16    // Jim's
  5.         end if
  6.     elsif flavor == 1        // graphic
  7.         procID = 201*16        // BowersPict
  8.     elsiˇˇ